/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / smtpmail.elc.z / smtpmail.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 36 3a 31 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:11 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 73 6d 74 70 6d 61 | 69 6c 2e 65 6c 0a 3b 3b |s/smtpma|il.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 73 6d 74 70 6d |  (error| "`smtpm|
|000001f0| 61 69 6c 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |ail.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l))...(b|yte-code|
|00000260| 20 22 c0 c1 21 88 c2 c3 | c4 c5 c6 c7 25 87 22 20 | "..!...|....%." |
|00000270| 5b 72 65 71 75 69 72 65 | 20 73 65 6e 64 6d 61 69 |[require| sendmai|
|00000280| 6c 20 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |l custom|-declare|
|00000290| 2d 67 72 6f 75 70 20 73 | 6d 74 70 6d 61 69 6c 20 |-group s|mtpmail |
|000002a0| 6e 69 6c 20 22 53 4d 54 | 50 20 70 72 6f 74 6f 63 |nil "SMT|P protoc|
|000002b0| 6f 6c 20 66 6f 72 20 73 | 65 6e 64 69 6e 67 20 6d |ol for s|ending m|
|000002c0| 61 69 6c 2e 22 20 3a 67 | 72 6f 75 70 20 6d 61 69 |ail." :g|roup mai|
|000002d0| 6c 5d 20 36 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |l] 6).(c|ustom-de|
|000002e0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|000002f0| 73 6d 74 70 6d 61 69 6c | 2d 64 65 66 61 75 6c 74 |smtpmail|-default|
|00000300| 2d 73 6d 74 70 2d 73 65 | 72 76 65 72 20 27 6e 69 |-smtp-se|rver 'ni|
|00000310| 6c 20 22 2a 53 70 65 63 | 69 66 79 20 64 65 66 61 |l "*Spec|ify defa|
|00000320| 75 6c 74 20 53 4d 54 50 | 20 73 65 72 76 65 72 2e |ult SMTP| server.|
|00000330| 22 20 3a 74 79 70 65 20 | 27 28 63 68 6f 69 63 65 |" :type |'(choice|
|00000340| 20 28 63 6f 6e 73 74 20 | 6e 69 6c 29 20 73 74 72 | (const |nil) str|
|00000350| 69 6e 67 29 20 3a 67 72 | 6f 75 70 20 27 73 6d 74 |ing) :gr|oup 'smt|
|00000360| 70 6d 61 69 6c 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |pmail).(|custom-d|
|00000370| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00000380| 27 73 6d 74 70 6d 61 69 | 6c 2d 73 6d 74 70 2d 73 |'smtpmai|l-smtp-s|
|00000390| 65 72 76 65 72 20 27 28 | 6f 72 20 28 67 65 74 65 |erver '(|or (gete|
|000003a0| 6e 76 20 22 53 4d 54 50 | 53 45 52 56 45 52 22 29 |nv "SMTP|SERVER")|
|000003b0| 20 73 6d 74 70 6d 61 69 | 6c 2d 64 65 66 61 75 6c | smtpmai|l-defaul|
|000003c0| 74 2d 73 6d 74 70 2d 73 | 65 72 76 65 72 29 20 22 |t-smtp-s|erver) "|
|000003d0| 2a 54 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 |*The nam|e of the|
|000003e0| 20 68 6f 73 74 20 72 75 | 6e 6e 69 6e 67 20 53 4d | host ru|nning SM|
|000003f0| 54 50 20 73 65 72 76 65 | 72 2e 22 20 3a 74 79 70 |TP serve|r." :typ|
|00000400| 65 20 27 28 63 68 6f 69 | 63 65 20 28 63 6f 6e 73 |e '(choi|ce (cons|
|00000410| 74 20 6e 69 6c 29 20 73 | 74 72 69 6e 67 29 20 3a |t nil) s|tring) :|
|00000420| 67 72 6f 75 70 20 27 73 | 6d 74 70 6d 61 69 6c 29 |group 's|mtpmail)|
|00000430| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|00000440| 2d 76 61 72 69 61 62 6c | 65 20 27 73 6d 74 70 6d |-variabl|e 'smtpm|
|00000450| 61 69 6c 2d 73 6d 74 70 | 2d 73 65 72 76 69 63 65 |ail-smtp|-service|
|00000460| 20 27 32 35 20 22 2a 53 | 4d 54 50 20 73 65 72 76 | '25 "*S|MTP serv|
|00000470| 69 63 65 20 70 6f 72 74 | 20 6e 75 6d 62 65 72 2e |ice port| number.|
|00000480| 20 73 6d 74 70 20 6f 72 | 20 32 35 20 2e 22 20 3a | smtp or| 25 ." :|
|00000490| 74 79 70 65 20 27 28 63 | 68 6f 69 63 65 20 28 69 |type '(c|hoice (i|
|000004a0| 6e 74 65 67 65 72 20 3a | 74 61 67 20 22 50 6f 72 |nteger :|tag "Por|
|000004b0| 74 22 29 20 28 73 74 72 | 69 6e 67 20 3a 74 61 67 |t") (str|ing :tag|
|000004c0| 20 22 53 65 72 76 69 63 | 65 22 29 29 20 3a 67 72 | "Servic|e")) :gr|
|000004d0| 6f 75 70 20 27 73 6d 74 | 70 6d 61 69 6c 29 0a 28 |oup 'smt|pmail).(|
|000004e0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|000004f0| 61 72 69 61 62 6c 65 20 | 27 73 6d 74 70 6d 61 69 |ariable |'smtpmai|
|00000500| 6c 2d 6c 6f 63 61 6c 2d | 64 6f 6d 61 69 6e 20 27 |l-local-|domain '|
|00000510| 6e 69 6c 20 22 2a 4c 6f | 63 61 6c 20 64 6f 6d 61 |nil "*Lo|cal doma|
|00000520| 69 6e 20 6e 61 6d 65 20 | 77 69 74 68 6f 75 74 20 |in name |without |
|00000530| 61 20 68 6f 73 74 20 6e | 61 6d 65 2e 5c 6e 49 66 |a host n|ame.\nIf|
|00000540| 20 74 68 65 20 66 75 6e | 63 74 69 6f 6e 20 28 73 | the fun|ction (s|
|00000550| 79 73 74 65 6d 2d 6e 61 | 6d 65 29 20 72 65 74 75 |ystem-na|me) retu|
|00000560| 72 6e 73 20 74 68 65 20 | 66 75 6c 6c 20 69 6e 74 |rns the |full int|
|00000570| 65 72 6e 65 74 20 61 64 | 64 72 65 73 73 2c 5c 6e |ernet ad|dress,\n|
|00000580| 64 6f 6e 27 74 20 64 65 | 66 69 6e 65 20 74 68 69 |don't de|fine thi|
|00000590| 73 20 76 61 6c 75 65 2e | 22 20 3a 74 79 70 65 20 |s value.|" :type |
|000005a0| 27 28 63 68 6f 69 63 65 | 20 28 63 6f 6e 73 74 20 |'(choice| (const |
|000005b0| 6e 69 6c 29 20 73 74 72 | 69 6e 67 29 20 3a 67 72 |nil) str|ing) :gr|
|000005c0| 6f 75 70 20 27 73 6d 74 | 70 6d 61 69 6c 29 0a 28 |oup 'smt|pmail).(|
|000005d0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|000005e0| 61 72 69 61 62 6c 65 20 | 27 73 6d 74 70 6d 61 69 |ariable |'smtpmai|
|000005f0| 6c 2d 64 65 62 75 67 2d | 69 6e 66 6f 20 27 6e 69 |l-debug-|info 'ni|
|00000600| 6c 20 22 2a 73 6d 74 70 | 6d 61 69 6c 20 64 65 62 |l "*smtp|mail deb|
|00000610| 75 67 20 69 6e 66 6f 20 | 70 72 69 6e 74 6f 75 74 |ug info |printout|
|00000620| 2e 20 6d 65 73 73 61 67 | 65 73 20 61 6e 64 20 70 |. messag|es and p|
|00000630| 72 6f 63 65 73 73 20 62 | 75 66 66 65 72 2e 22 20 |rocess b|uffer." |
|00000640| 3a 74 79 70 65 20 27 62 | 6f 6f 6c 65 61 6e 20 3a |:type 'b|oolean :|
|00000650| 67 72 6f 75 70 20 27 73 | 6d 74 70 6d 61 69 6c 29 |group 's|mtpmail)|
|00000660| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|00000670| 2d 76 61 72 69 61 62 6c | 65 20 27 73 6d 74 70 6d |-variabl|e 'smtpm|
|00000680| 61 69 6c 2d 63 6f 64 65 | 2d 63 6f 6e 76 2d 66 72 |ail-code|-conv-fr|
|00000690| 6f 6d 20 27 6e 69 6c 20 | 22 2a 73 6d 74 70 6d 61 |om 'nil |"*smtpma|
|000006a0| 69 6c 20 63 6f 64 65 20 | 63 6f 6e 76 65 72 74 20 |il code |convert |
|000006b0| 66 72 6f 6d 20 74 68 69 | 73 20 63 6f 64 65 20 74 |from thi|s code t|
|000006c0| 6f 20 2a 69 6e 74 65 72 | 6e 61 6c 2a 2e 2e 66 6f |o *inter|nal*..fo|
|000006d0| 72 20 74 69 6e 79 2d 6d | 69 6d 65 2e 2e 22 20 3a |r tiny-m|ime.." :|
|000006e0| 74 79 70 65 20 27 62 6f | 6f 6c 65 61 6e 20 3a 67 |type 'bo|olean :g|
|000006f0| 72 6f 75 70 20 27 73 6d | 74 70 6d 61 69 6c 29 0a |roup 'sm|tpmail).|
|00000700| 28 64 65 66 61 6c 69 61 | 73 20 27 73 6d 74 70 6d |(defalia|s 'smtpm|
|00000710| 61 69 6c 2d 73 65 6e 64 | 2d 69 74 20 23 5b 6e 69 |ail-send|-it #[ni|
|00000720| 6c 20 22 c0 c1 21 88 5c | 6e ab 85 c3 c4 21 aa 81 |l "..!.\|n....!..|
|00000730| c5 c3 c6 21 c7 89 89 70 | 1e 08 1e 09 1e 5c 6e 1e |...!...p|.....\n.|
|00000740| 0b 1e 0c 1e 0d ce 8e 8a | 0e 0c 71 88 cf 20 88 d0 |........|..q.. ..|
|00000750| 0e 08 21 88 64 62 88 68 | d1 55 ac 83 d1 63 88 65 |..!.db.h|.U...c.e|
|00000760| 62 88 d2 d3 d4 0e 15 21 | d6 51 21 88 d7 d6 21 88 |b......!|.Q!...!.|
|00000770| d8 d9 21 88 da 20 16 09 | 0e 1b ab 8b dc dd 21 ab |..!.. ..|......!.|
|00000780| 86 dd 65 0e 09 5c 22 88 | 65 62 88 d2 de 0e 09 df |..e..\".|eb......|
|00000790| 23 ab 8c 60 0e 09 57 ab | 86 d7 d6 21 88 aa 6c df |#..`..W.|...!..l.|
|000007a0| 1e 0b 65 62 88 65 62 88 | d2 e0 0e 09 df 23 ab 95 |..eb.eb.|.....#..|
|000007b0| 8c 60 8a c7 7f 88 60 29 | 7d 88 e1 e2 20 0e 5c 6e |.`....`)|}... .\n|
|000007c0| 5c 22 29 16 5c 6e aa 63 | 65 62 88 d2 e3 0e 09 df |\").\n.c|eb......|
|000007d0| 23 ab 84 d7 e4 21 88 65 | 62 88 d2 e5 0e 09 df 23 |#....!.e|b......#|
|000007e0| 84 59 01 e6 20 1e 27 e8 | 20 1e 29 0e 2a eb 61 ab |.Y.. .'.| .).*.a.|
|000007f0| bd ec 0e 29 b1 02 88 65 | ed 5c 5c da 20 1e 2e 89 |...)...e|.\\. ...|
|00000800| 1e 2f 62 88 d2 f0 0e 2e | d9 23 ab 99 0e 2f 62 88 |./b.....|.#.../b.|
|00000810| f1 63 88 d2 f2 0e 2e d9 | 23 ab 87 d7 f3 df 5c 22 |.c......|#.....\"|
|00000820| 88 aa 71 f1 63 88 2a f4 | 0e 27 f5 b1 03 88 aa d3 |..q.c.*.|.'......|
|00000830| 0e 2a f6 61 ab c2 ec 0e | 27 f7 b1 03 88 60 1e 2f |.*.a....|'....`./|
|00000840| 0e 29 63 88 da 20 1e 2e | 0e 2f 62 88 d2 f8 0e 2e |.)c.. ..|./b.....|
|00000850| d9 23 ab 87 d7 f3 df 5c | 22 88 aa 71 0e 2f 62 88 |.#.....\|"..q./b.|
|00000860| d2 f9 0e 2e d9 23 ab 8b | d7 fa df 5c 22 88 0e 2f |.....#..|...\"../|
|00000870| 62 88 aa 6d 2a fb 63 88 | aa 8b 0e 2a ac 87 ec 0e |b..m*.c.|...*....|
|00000880| 27 d6 b1 03 88 2a 0e 09 | 54 62 88 fc 0e 3d 21 ab |'....*..|Tb...=!.|
|00000890| 83 fe 20 88 65 62 88 d2 | ff 0e 09 df 23 ab 87 81 |.. .eb..|....#...|
|000008a0| 40 00 0e 09 21 88 5c 6e | ab 89 8a 0e 0d 71 88 cf |@...!.\n|.....q..|
|000008b0| 20 88 29 29 c3 81 41 00 | 21 16 42 0e 5c 6e ae 89 | .))..A.|!.B.\n..|
|000008c0| 81 43 00 0e 0c 65 0e 09 | 23 16 44 81 45 00 0e 42 |.C...e..|#.D.E..B|
|000008d0| 21 88 81 46 00 0e 09 21 | 88 0e 44 ab 94 81 47 00 |!..F...!|..D...G.|
|000008e0| 0e 44 0e 0c 5c 22 3f ad | 90 81 48 00 81 49 00 21 |.D..\"?.|..H..I.!|
|000008f0| aa 87 81 48 00 81 4a 00 | 21 2e 08 87 22 20 5b 72 |...H..J.|!..." [r|
|00000900| 65 71 75 69 72 65 20 6d | 61 69 6c 2d 75 74 69 6c |equire m|ail-util|
|00000910| 73 20 6d 61 69 6c 2d 69 | 6e 74 65 72 61 63 74 69 |s mail-i|nteracti|
|00000920| 76 65 20 67 65 6e 65 72 | 61 74 65 2d 6e 65 77 2d |ve gener|ate-new-|
|00000930| 62 75 66 66 65 72 20 22 | 20 73 6d 74 70 6d 61 69 |buffer "| smtpmai|
|00000940| 6c 20 65 72 72 6f 72 73 | 22 20 30 20 22 20 73 6d |l errors|" 0 " sm|
|00000950| 74 70 6d 61 69 6c 20 74 | 65 6d 70 22 20 6e 69 6c |tpmail t|emp" nil|
|00000960| 20 6d 61 69 6c 62 75 66 | 20 64 65 6c 69 6d 6c 69 | mailbuf| delimli|
|00000970| 6e 65 20 72 65 73 65 6e | 64 2d 74 6f 2d 61 64 64 |ne resen|d-to-add|
|00000980| 72 65 73 73 65 73 20 63 | 61 73 65 2d 66 6f 6c 64 |resses c|ase-fold|
|00000990| 2d 73 65 61 72 63 68 20 | 74 65 6d 62 75 66 20 65 |-search |tembuf e|
|000009a0| 72 72 62 75 66 20 28 28 | 62 79 74 65 2d 63 6f 64 |rrbuf ((|byte-cod|
|000009b0| 65 20 22 c0 09 21 88 c2 | 0b 21 ab 84 c0 0b 21 88 |e "..!..|.!....!.|
|000009c0| c0 87 22 20 5b 6b 69 6c | 6c 2d 62 75 66 66 65 72 |.." [kil|l-buffer|
|000009d0| 20 74 65 6d 62 75 66 20 | 62 75 66 66 65 72 70 20 | tembuf |bufferp |
|000009e0| 65 72 72 62 75 66 5d 20 | 32 29 29 20 65 72 61 73 |errbuf] |2)) eras|
|000009f0| 65 2d 62 75 66 66 65 72 | 20 69 6e 73 65 72 74 2d |e-buffer| insert-|
|00000a00| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00000a10| 20 3f 5c 6e 20 72 65 2d | 73 65 61 72 63 68 2d 66 | ?\n re-|search-f|
|00000a20| 6f 72 77 61 72 64 20 22 | 5e 22 20 72 65 67 65 78 |orward "|^" regex|
|00000a30| 70 2d 71 75 6f 74 65 20 | 6d 61 69 6c 2d 68 65 61 |p-quote |mail-hea|
|00000a40| 64 65 72 2d 73 65 70 61 | 72 61 74 6f 72 20 22 5c |der-sepa|rator "\|
|00000a50| 6e 22 20 72 65 70 6c 61 | 63 65 2d 6d 61 74 63 68 |n" repla|ce-match|
|00000a60| 20 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 31 | backwar|d-char 1|
|00000a70| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 6d 61 | point-m|arker ma|
|00000a80| 69 6c 2d 61 6c 69 61 73 | 65 73 20 66 62 6f 75 6e |il-alias|es fboun|
|00000a90| 64 70 20 65 78 70 61 6e | 64 2d 6d 61 69 6c 2d 61 |dp expan|d-mail-a|
|00000aa0| 6c 69 61 73 65 73 20 22 | 5c 6e 5c 6e 5c 6e 2a 22 |liases "|\n\n\n*"|
|00000ab0| 20 74 20 22 5e 52 65 73 | 65 6e 74 2d 74 6f 3a 22 | t "^Res|ent-to:"|
|00000ac0| 20 61 70 70 65 6e 64 20 | 6d 61 69 6c 2d 70 61 72 | append |mail-par|
|00000ad0| 73 65 2d 63 6f 6d 6d 61 | 2d 6c 69 73 74 20 22 5e |se-comma|-list "^|
|00000ae0| 53 75 62 6a 65 63 74 3a | 5b 20 09 5d 2a 5c 6e 22 |Subject:|[ .]*\n"|
|00000af0| 20 22 22 20 22 5e 46 72 | 6f 6d 3a 22 20 75 73 65 | "" "^Fr|om:" use|
|00000b00| 72 2d 6d 61 69 6c 2d 61 | 64 64 72 65 73 73 20 6c |r-mail-a|ddress l|
|00000b10| 6f 67 69 6e 20 75 73 65 | 72 2d 66 75 6c 6c 2d 6e |ogin use|r-full-n|
|00000b20| 61 6d 65 20 66 75 6c 6c | 6e 61 6d 65 20 6d 61 69 |ame full|name mai|
|00000b30| 6c 2d 66 72 6f 6d 2d 73 | 74 79 6c 65 20 61 6e 67 |l-from-s|tyle ang|
|00000b40| 6c 65 73 20 22 46 72 6f | 6d 3a 20 22 20 36 20 66 |les "Fro|m: " 6 f|
|00000b50| 75 6c 6c 6e 61 6d 65 2d | 65 6e 64 20 66 75 6c 6c |ullname-|end full|
|00000b60| 6e 61 6d 65 2d 73 74 61 | 72 74 20 22 5b 5e 2d 20 |name-sta|rt "[^- |
|00000b70| 21 23 2d 27 2a 2b 2f 2d | 39 3d 3f 41 2d 5a 5e 2d |!#-'*+/-|9=?A-Z^-|
|00000b80| 7e 5d 22 20 22 5c 22 22 | 20 22 5b 5c 22 5c 5c 5d |~]" "\""| "[\"\\]|
|00000b90| 22 20 22 5c 5c 5c 5c 5c | 5c 26 22 20 22 20 3c 22 |" "\\\\\|\&" " <"|
|00000ba0| 20 22 3e 5c 6e 22 20 70 | 61 72 65 6e 73 20 22 20 | ">\n" p|arens " |
|00000bb0| 28 22 20 22 5b 28 29 5c | 5c 5d 22 20 22 5c 5c 28 |(" "[()\|\]" "\\(|
|00000bc0| 5c 5c 3d 5c 5c 7c 5b 5e | 5c 5c 5d 5c 5c 28 5c 5c |\\=\\|[^|\\]\\(\\|
|00000bd0| 5c 5c 5c 5c 5c 5c 5c 5c | 29 2a 5c 5c 29 5c 5c 5c |\\\\\\\\|)*\\)\\\|
|00000be0| 5c 28 5c 5c 28 5c 5c 28 | 5b 5e 5c 5c 5d 5c 5c 7c |\(\\(\\(|[^\\]\\||
|00000bf0| 5c 5c 5c 5c 5c 5c 5c 5c | 5c 5c 29 2a 5c 5c 29 5c |\\\\\\\\|\\)*\\)\|
|00000c00| 5c 5c 5c 29 22 20 22 5c | 5c 31 28 5c 5c 33 29 22 |\\\)" "\|\1(\\3)"|
|00000c10| 20 22 29 5c 6e 22 20 65 | 76 61 6c 20 6d 61 69 6c | ")\n" e|val mail|
|00000c20| 2d 6d 61 69 6c 65 72 2d | 73 77 61 6c 6c 6f 77 73 |-mailer-|swallows|
|00000c30| 2d 62 6c 61 6e 6b 2d 6c | 69 6e 65 20 6e 65 77 6c |-blank-l|ine newl|
|00000c40| 69 6e 65 20 22 5e 46 43 | 43 3a 22 20 6d 61 69 6c |ine "^FC|C:" mail|
|00000c50| 2d 64 6f 2d 66 63 63 20 | 22 2a 73 6d 74 70 2d 6d |-do-fcc |"*smtp-m|
|00000c60| 61 69 6c 2a 22 20 73 6d | 74 70 6d 61 69 6c 2d 61 |ail*" sm|tpmail-a|
|00000c70| 64 64 72 65 73 73 2d 62 | 75 66 66 65 72 20 73 6d |ddress-b|uffer sm|
|00000c80| 74 70 6d 61 69 6c 2d 64 | 65 64 75 63 65 2d 61 64 |tpmail-d|educe-ad|
|00000c90| 64 72 65 73 73 2d 6c 69 | 73 74 20 73 6d 74 70 6d |dress-li|st smtpm|
|00000ca0| 61 69 6c 2d 72 65 63 69 | 70 69 65 6e 74 2d 61 64 |ail-reci|pient-ad|
|00000cb0| 64 72 65 73 73 2d 6c 69 | 73 74 20 6b 69 6c 6c 2d |dress-li|st kill-|
|00000cc0| 62 75 66 66 65 72 20 73 | 6d 74 70 6d 61 69 6c 2d |buffer s|mtpmail-|
|00000cd0| 64 6f 2d 62 63 63 20 73 | 6d 74 70 6d 61 69 6c 2d |do-bcc s|mtpmail-|
|00000ce0| 76 69 61 2d 73 6d 74 70 | 20 65 72 72 6f 72 20 22 |via-smtp| error "|
|00000cf0| 53 65 6e 64 69 6e 67 20 | 66 61 69 6c 65 64 3b 20 |Sending |failed; |
|00000d00| 53 4d 54 50 20 70 72 6f | 74 6f 63 6f 6c 20 65 72 |SMTP pro|tocol er|
|00000d10| 72 6f 72 22 20 22 53 65 | 6e 64 69 6e 67 20 66 61 |ror" "Se|nding fa|
|00000d20| 69 6c 65 64 3b 20 6e 6f | 20 72 65 63 69 70 69 65 |iled; no| recipie|
|00000d30| 6e 74 73 22 5d 20 37 5d | 29 0a 28 64 65 66 61 6c |nts"] 7]|).(defal|
|00000d40| 69 61 73 20 27 73 6d 74 | 70 6d 61 69 6c 2d 66 71 |ias 'smt|pmail-fq|
|00000d50| 64 6e 20 23 5b 6e 69 6c | 20 22 08 ab 86 c1 20 c2 |dn #[nil| ".... .|
|00000d60| 08 51 87 c1 20 87 22 20 | 5b 73 6d 74 70 6d 61 69 |.Q.. ." |[smtpmai|
|00000d70| 6c 2d 6c 6f 63 61 6c 2d | 64 6f 6d 61 69 6e 20 73 |l-local-|domain s|
|00000d80| 79 73 74 65 6d 2d 6e 61 | 6d 65 20 22 2e 22 5d 20 |ystem-na|me "."] |
|00000d90| 33 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |3]).(def|alias 's|
|00000da0| 6d 74 70 6d 61 69 6c 2d | 76 69 61 2d 73 6d 74 70 |mtpmail-|via-smtp|
|00000db0| 20 23 5b 28 72 65 63 69 | 70 69 65 6e 74 20 73 6d | #[(reci|pient sm|
|00000dc0| 74 70 6d 61 69 6c 2d 74 | 65 78 74 2d 62 75 66 66 |tpmail-t|ext-buff|
|00000dd0| 65 72 29 20 22 c0 09 5c | 6e c0 89 89 1b 1c 1d 1e |er) "..\|n.......|
|00000de0| 06 1e 07 1e 08 c9 8e ca | cb 8d 2e 07 87 22 20 5b |........|....." [|
|00000df0| 6e 69 6c 20 73 6d 74 70 | 6d 61 69 6c 2d 73 6d 74 |nil smtp|mail-smt|
|00000e00| 70 2d 73 65 72 76 65 72 | 20 73 6d 74 70 6d 61 69 |p-server| smtpmai|
|00000e10| 6c 2d 73 6d 74 70 2d 73 | 65 72 76 69 63 65 20 70 |l-smtp-s|ervice p|
|00000e20| 72 6f 63 65 73 73 2d 62 | 75 66 66 65 72 20 67 72 |rocess-b|uffer gr|
|00000e30| 65 65 74 69 6e 67 20 72 | 65 73 70 6f 6e 73 65 2d |eeting r|esponse-|
|00000e40| 63 6f 64 65 20 70 6f 72 | 74 20 68 6f 73 74 20 70 |code por|t host p|
|00000e50| 72 6f 63 65 73 73 20 28 | 28 62 79 74 65 2d 63 6f |rocess (|(byte-co|
|00000e60| 64 65 20 22 08 ab 94 8a | c1 08 21 71 88 c2 08 c3 |de "....|..!q....|
|00000e70| 5c 22 88 c4 08 21 88 c5 | 08 21 88 29 c1 87 22 20 |\"...!..|.!.).." |
|00000e80| 5b 70 72 6f 63 65 73 73 | 20 70 72 6f 63 65 73 73 |[process| process|
|00000e90| 2d 62 75 66 66 65 72 20 | 73 6d 74 70 6d 61 69 6c |-buffer |smtpmail|
|00000ea0| 2d 73 65 6e 64 2d 63 6f | 6d 6d 61 6e 64 20 22 51 |-send-co|mmand "Q|
|00000eb0| 55 49 54 22 20 73 6d 74 | 70 6d 61 69 6c 2d 72 65 |UIT" smt|pmail-re|
|00000ec0| 61 64 2d 72 65 73 70 6f | 6e 73 65 20 64 65 6c 65 |ad-respo|nse dele|
|00000ed0| 74 65 2d 70 72 6f 63 65 | 73 73 5d 20 33 29 29 20 |te-proce|ss] 3)) |
|00000ee0| 64 6f 6e 65 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |done (by|te-code |
|00000ef0| 22 c0 c1 c2 0b 5c 22 21 | 14 8a 0c 71 88 c5 20 88 |"....\"!|...q.. .|
|00000f00| 29 c6 c7 0c 0b 0e 08 24 | 89 16 09 ac 85 ca cb cc |)......$|........|
|00000f10| 5c 22 88 cd 0e 09 ce 5c | 22 88 8a 0c 71 88 cf d0 |\".....\|"...q...|
|00000f20| 21 88 65 16 10 d1 0e 09 | 21 89 16 12 40 ab 8d 0e |!.e.....|!...@...|
|00000f30| 12 40 a8 ab 87 0e 12 40 | d3 59 ab 85 ca cb cc 5c |.@.....@|.Y.....\|
|00000f40| 22 88 d4 0e 09 c1 d5 d6 | 20 5c 22 5c 22 88 d1 0e |".......| \"\"...|
|00000f50| 09 21 89 16 17 40 ab 8d | 0e 17 40 a8 ab 87 0e 17 |.!...@..|..@.....|
|00000f60| 40 d3 59 ab 85 ca cb cc | 5c 22 88 d4 0e 09 c1 d8 |@.Y.....|\"......|
|00000f70| d9 20 5c 22 5c 22 88 d1 | 0e 09 21 89 16 17 40 ab |. \"\"..|..!...@.|
|00000f80| 8d 0e 17 40 a8 ab 87 0e | 17 40 d3 59 ab 85 ca cb |...@....|.@.Y....|
|00000f90| cc 5c 22 88 da 1e 1b 0e | 1b 0e 1c 38 ab b0 d4 0e |.\".....|...8....|
|00000fa0| 09 c1 dd 0e 1b 0e 1c 38 | 5c 22 5c 22 88 0e 1b 54 |.......8|\"\"...T|
|00000fb0| 16 1b d1 0e 09 21 89 16 | 17 40 ab 8d 0e 17 40 a8 |.....!..|.@....@.|
|00000fc0| ab 87 0e 17 40 d3 59 ab | 50 ca cb cc 5c 22 88 aa |....@.Y.|P...\"..|
|00000fd0| 49 29 d4 0e 09 de 5c 22 | 88 d1 0e 09 21 89 16 17 |I)....\"|....!...|
|00000fe0| 40 ab 8d 0e 17 40 a8 ab | 87 0e 17 40 d3 59 ab 85 |@....@..|...@.Y..|
|00000ff0| ca cb cc 5c 22 88 df 0e | 09 0e 20 5c 22 88 d4 0e |...\"...|.. \"...|
|00001000| 09 e1 5c 22 88 d1 0e 09 | 21 89 16 17 40 ab 8d 0e |..\"....|!...@...|
|00001010| 17 40 a8 ab 87 0e 17 40 | d3 59 ab 85 ca cb cc 5c |.@.....@|.Y.....\|
|00001020| 22 88 29 e2 87 22 20 5b | 67 65 74 2d 62 75 66 66 |".).." [|get-buff|
|00001030| 65 72 2d 63 72 65 61 74 | 65 20 66 6f 72 6d 61 74 |er-creat|e format|
|00001040| 20 22 2a 74 72 61 63 65 | 20 6f 66 20 53 4d 54 50 | "*trace| of SMTP|
|00001050| 20 73 65 73 73 69 6f 6e | 20 74 6f 20 25 73 2a 22 | session| to %s*"|
|00001060| 20 68 6f 73 74 20 70 72 | 6f 63 65 73 73 2d 62 75 | host pr|ocess-bu|
|00001070| 66 66 65 72 20 65 72 61 | 73 65 2d 62 75 66 66 65 |ffer era|se-buffe|
|00001080| 72 20 6f 70 65 6e 2d 6e | 65 74 77 6f 72 6b 2d 73 |r open-n|etwork-s|
|00001090| 74 72 65 61 6d 20 22 53 | 4d 54 50 22 20 70 6f 72 |tream "S|MTP" por|
|000010a0| 74 20 70 72 6f 63 65 73 | 73 20 74 68 72 6f 77 20 |t proces|s throw |
|000010b0| 64 6f 6e 65 20 6e 69 6c | 20 73 65 74 2d 70 72 6f |done nil| set-pro|
|000010c0| 63 65 73 73 2d 66 69 6c | 74 65 72 20 73 6d 74 70 |cess-fil|ter smtp|
|000010d0| 6d 61 69 6c 2d 70 72 6f | 63 65 73 73 2d 66 69 6c |mail-pro|cess-fil|
|000010e0| 74 65 72 20 6d 61 6b 65 | 2d 6c 6f 63 61 6c 2d 76 |ter make|-local-v|
|000010f0| 61 72 69 61 62 6c 65 20 | 73 6d 74 70 6d 61 69 6c |ariable |smtpmail|
|00001100| 2d 72 65 61 64 2d 70 6f | 69 6e 74 20 73 6d 74 70 |-read-po|int smtp|
|00001110| 6d 61 69 6c 2d 72 65 61 | 64 2d 72 65 73 70 6f 6e |mail-rea|d-respon|
|00001120| 73 65 20 67 72 65 65 74 | 69 6e 67 20 34 30 30 20 |se greet|ing 400 |
|00001130| 73 6d 74 70 6d 61 69 6c | 2d 73 65 6e 64 2d 63 6f |smtpmail|-send-co|
|00001140| 6d 6d 61 6e 64 20 22 48 | 45 4c 4f 20 25 73 22 20 |mmand "H|ELO %s" |
|00001150| 73 6d 74 70 6d 61 69 6c | 2d 66 71 64 6e 20 72 65 |smtpmail|-fqdn re|
|00001160| 73 70 6f 6e 73 65 2d 63 | 6f 64 65 20 22 4d 41 49 |sponse-c|ode "MAI|
|00001170| 4c 20 46 52 4f 4d 3a 20 | 3c 25 73 3e 22 20 75 73 |L FROM: |<%s>" us|
|00001180| 65 72 2d 6d 61 69 6c 2d | 61 64 64 72 65 73 73 20 |er-mail-|address |
|00001190| 30 20 6e 20 72 65 63 69 | 70 69 65 6e 74 20 22 52 |0 n reci|pient "R|
|000011a0| 43 50 54 20 54 4f 3a 20 | 3c 25 73 3e 22 20 22 44 |CPT TO: |<%s>" "D|
|000011b0| 41 54 41 22 20 73 6d 74 | 70 6d 61 69 6c 2d 73 65 |ATA" smt|pmail-se|
|000011c0| 6e 64 2d 64 61 74 61 20 | 73 6d 74 70 6d 61 69 6c |nd-data |smtpmail|
|000011d0| 2d 74 65 78 74 2d 62 75 | 66 66 65 72 20 22 2e 22 |-text-bu|ffer "."|
|000011e0| 20 74 5d 20 37 29 5d 20 | 36 5d 29 0a 28 64 65 66 | t] 7)] |6]).(def|
|000011f0| 61 6c 69 61 73 20 27 73 | 6d 74 70 6d 61 69 6c 2d |alias 's|mtpmail-|
|00001200| 70 72 6f 63 65 73 73 2d | 66 69 6c 74 65 72 20 23 |process-|filter #|
|00001210| 5b 28 70 72 6f 63 65 73 | 73 20 6f 75 74 70 75 74 |[(proces|s output|
|00001220| 29 20 22 8a c0 09 21 71 | 88 64 62 88 5c 6e 63 29 |) "...!q|.db.\nc)|
|00001230| 87 22 20 5b 70 72 6f 63 | 65 73 73 2d 62 75 66 66 |." [proc|ess-buff|
|00001240| 65 72 20 70 72 6f 63 65 | 73 73 20 6f 75 74 70 75 |er proce|ss outpu|
|00001250| 74 5d 20 32 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |t] 2]).(|defalias|
|00001260| 20 27 73 6d 74 70 6d 61 | 69 6c 2d 72 65 61 64 2d | 'smtpma|il-read-|
|00001270| 72 65 73 70 6f 6e 73 65 | 20 23 5b 28 70 72 6f 63 |response| #[(proc|
|00001280| 65 73 73 29 20 22 c0 89 | c1 c2 c0 1b 1c 1d 1e 06 |ess) "..|........|
|00001290| 1e 07 0d ab e1 0e 08 62 | 88 c9 ca c0 c1 23 ac 8b |.......b|.....#..|
|000012a0| cb 0e 0c 21 88 0e 08 62 | 88 aa 6e 60 13 0e 06 ac |...!...b|..n`....|
|000012b0| 88 0e 08 0b cd 5a 7b 16 | 06 0e 08 62 88 ce cf 21 |.....Z{.|...b...!|
|000012c0| ab 9b c0 15 0e 10 ab 85 | d1 0e 06 21 88 0b 16 08 |........|...!....|
|000012d0| d2 d3 94 d3 95 7b 21 0e | 06 42 14 aa 35 ce d4 21 |.....{!.|.B..5..!|
|000012e0| ab 88 0b 16 08 c1 89 15 | aa 29 0b 16 08 c0 15 c0 |........|.)......|
|000012f0| 0e 06 42 14 aa 1c 0b 16 | 08 0c 2d 87 22 20 5b 6e |..B.....|..-." [n|
|00001300| 69 6c 20 74 20 28 6e 69 | 6c 20 22 22 29 20 6d 61 |il t (ni|l "") ma|
|00001310| 74 63 68 2d 65 6e 64 20 | 72 65 74 75 72 6e 2d 76 |tch-end |return-v|
|00001320| 61 6c 75 65 20 72 65 73 | 70 6f 6e 73 65 2d 63 6f |alue res|ponse-co|
|00001330| 6e 74 69 6e 75 65 20 72 | 65 73 70 6f 6e 73 65 2d |ntinue r|esponse-|
|00001340| 73 74 72 69 6e 67 20 63 | 61 73 65 2d 66 6f 6c 64 |string c|ase-fold|
|00001350| 2d 73 65 61 72 63 68 20 | 73 6d 74 70 6d 61 69 6c |-search |smtpmail|
|00001360| 2d 72 65 61 64 2d 70 6f | 69 6e 74 20 73 65 61 72 |-read-po|int sear|
|00001370| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 0d 5c 6e 22 |ch-forwa|rd ".\n"|
|00001380| 20 61 63 63 65 70 74 2d | 70 72 6f 63 65 73 73 2d | accept-|process-|
|00001390| 6f 75 74 70 75 74 20 70 | 72 6f 63 65 73 73 20 32 |output p|rocess 2|
|000013a0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 5b 30 2d | looking|-at "[0-|
|000013b0| 39 5d 2b 20 22 20 73 6d | 74 70 6d 61 69 6c 2d 64 |9]+ " sm|tpmail-d|
|000013c0| 65 62 75 67 2d 69 6e 66 | 6f 20 6d 65 73 73 61 67 |ebug-inf|o messag|
|000013d0| 65 20 73 74 72 69 6e 67 | 2d 74 6f 2d 69 6e 74 20 |e string|-to-int |
|000013e0| 30 20 22 5b 30 2d 39 5d | 2b 2d 22 5d 20 36 5d 29 |0 "[0-9]|+-"] 6])|
|000013f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 6d 74 70 |.(defali|as 'smtp|
|00001400| 6d 61 69 6c 2d 73 65 6e | 64 2d 63 6f 6d 6d 61 6e |mail-sen|d-comman|
|00001410| 64 20 23 5b 28 70 72 6f | 63 65 73 73 20 63 6f 6d |d #[(pro|cess com|
|00001420| 6d 61 6e 64 29 20 22 64 | 62 88 08 c1 48 c2 55 ab |mand) "d|b...H.U.|
|00001430| 85 c3 63 88 aa 85 08 c4 | b1 02 88 60 15 c6 0e 07 |..c.....|...`....|
|00001440| 08 5c 22 88 c6 0e 07 c4 | 5c 22 87 22 20 5b 63 6f |.\".....|\"." [co|
|00001450| 6d 6d 61 6e 64 20 30 20 | 3f 50 20 22 50 41 53 53 |mmand 0 |?P "PASS|
|00001460| 20 3c 6f 6d 69 74 74 65 | 64 3e 0d 5c 6e 22 20 22 | <omitte|d>.\n" "|
|00001470| 0d 5c 6e 22 20 73 6d 74 | 70 6d 61 69 6c 2d 72 65 |.\n" smt|pmail-re|
|00001480| 61 64 2d 70 6f 69 6e 74 | 20 70 72 6f 63 65 73 73 |ad-point| process|
|00001490| 2d 73 65 6e 64 2d 73 74 | 72 69 6e 67 20 70 72 6f |-send-st|ring pro|
|000014a0| 63 65 73 73 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |cess] 3]|).(defal|
|000014b0| 69 61 73 20 27 73 6d 74 | 70 6d 61 69 6c 2d 73 65 |ias 'smt|pmail-se|
|000014c0| 6e 64 2d 64 61 74 61 2d | 31 20 23 5b 28 70 72 6f |nd-data-|1 #[(pro|
|000014d0| 63 65 73 73 20 64 61 74 | 61 29 20 22 64 62 88 08 |cess dat|a) "db..|
|000014e0| ab 86 c1 5c 6e 08 0b 23 | 12 0c ab 85 5c 6e c5 b1 |...\n..#|....\n..|
|000014f0| 02 88 60 16 06 c7 5c 6e | 21 c8 61 ab 86 c9 0e 5c |..`...\n|!.a....\|
|00001500| 6e cb 5c 22 88 c9 0e 5c | 6e 5c 6e 5c 22 88 c9 0e |n.\"...\|n\n\"...|
|00001510| 5c 6e c5 5c 22 87 22 20 | 5b 73 6d 74 70 6d 61 69 |\n.\"." |[smtpmai|
|00001520| 6c 2d 63 6f 64 65 2d 63 | 6f 6e 76 2d 66 72 6f 6d |l-code-c|onv-from|
|00001530| 20 63 6f 64 65 2d 63 6f | 6e 76 65 72 74 2d 73 74 | code-co|nvert-st|
|00001540| 72 69 6e 67 20 64 61 74 | 61 20 2a 69 6e 74 65 72 |ring dat|a *inter|
|00001550| 6e 61 6c 2a 20 73 6d 74 | 70 6d 61 69 6c 2d 64 65 |nal* smt|pmail-de|
|00001560| 62 75 67 2d 69 6e 66 6f | 20 22 0d 5c 6e 22 20 73 |bug-info| ".\n" s|
|00001570| 6d 74 70 6d 61 69 6c 2d | 72 65 61 64 2d 70 6f 69 |mtpmail-|read-poi|
|00001580| 6e 74 20 73 74 72 69 6e | 67 2d 74 6f 2d 63 68 61 |nt strin|g-to-cha|
|00001590| 72 20 3f 5c 2e 20 70 72 | 6f 63 65 73 73 2d 73 65 |r ?\. pr|ocess-se|
|000015a0| 6e 64 2d 73 74 72 69 6e | 67 20 70 72 6f 63 65 73 |nd-strin|g proces|
|000015b0| 73 20 22 2e 22 5d 20 34 | 5d 29 0a 28 64 65 66 61 |s "."] 4|]).(defa|
|000015c0| 6c 69 61 73 20 27 73 6d | 74 70 6d 61 69 6c 2d 73 |lias 'sm|tpmail-s|
|000015d0| 65 6e 64 2d 64 61 74 61 | 20 23 5b 28 70 72 6f 63 |end-data| #[(proc|
|000015e0| 65 73 73 20 62 75 66 66 | 65 72 29 20 22 c0 c1 89 |ess buff|er) "...|
|000015f0| 89 1a 1b 1c 1d 8a 0e 06 | 71 88 65 62 88 29 0d ad |........|q.eb.)..|
|00001600| a6 8a 0e 06 71 88 c7 79 | 88 60 13 c1 7f 88 60 12 |....q..y|.`....`.|
|00001610| c1 14 0b 5c 6e 7b 14 c8 | 79 c7 55 ac 82 c1 15 29 |...\n{..|y.U....)|
|00001620| c9 0e 5c 6e 0c 5c 22 88 | aa 57 2c 87 22 20 5b 74 |..\n.\".|.W,." [t|
|00001630| 20 6e 69 6c 20 74 68 69 | 73 2d 6c 69 6e 65 2d 65 | nil thi|s-line-e|
|00001640| 6e 64 20 74 68 69 73 2d | 6c 69 6e 65 20 73 65 6e |nd this-|line sen|
|00001650| 64 69 6e 67 2d 64 61 74 | 61 20 64 61 74 61 2d 63 |ding-dat|a data-c|
|00001660| 6f 6e 74 69 6e 75 65 20 | 62 75 66 66 65 72 20 30 |ontinue |buffer 0|
|00001670| 20 31 20 73 6d 74 70 6d | 61 69 6c 2d 73 65 6e 64 | 1 smtpm|ail-send|
|00001680| 2d 64 61 74 61 2d 31 20 | 70 72 6f 63 65 73 73 5d |-data-1 |process]|
|00001690| 20 34 5d 29 0a 23 40 35 | 36 20 47 65 74 20 61 64 | 4]).#@5|6 Get ad|
|000016a0| 64 72 65 73 73 20 6c 69 | 73 74 20 73 75 69 74 61 |dress li|st suita|
|000016b0| 62 6c 65 20 66 6f 72 20 | 73 6d 74 70 20 52 43 50 |ble for |smtp RCP|
|000016c0| 54 20 54 4f 3a 20 3c 61 | 64 64 72 65 73 73 3e 2e |T TO: <a|ddress>.|
|000016d0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 6d 74 |..(defal|ias 'smt|
|000016e0| 70 6d 61 69 6c 2d 64 65 | 64 75 63 65 2d 61 64 64 |pmail-de|duce-add|
|000016f0| 72 65 73 73 2d 6c 69 73 | 74 20 23 5b 28 73 6d 74 |ress-lis|t #[(smt|
|00001700| 70 6d 61 69 6c 2d 74 65 | 78 74 2d 62 75 66 66 65 |pmail-te|xt-buffe|
|00001710| 72 20 68 65 61 64 65 72 | 2d 73 74 61 72 74 20 68 |r header|-start h|
|00001720| 65 61 64 65 72 2d 65 6e | 64 29 20 22 c0 c1 21 88 |eader-en|d) "..!.|
|00001730| c2 c3 89 89 1c 1d 1e 06 | 1e 07 c3 8e 8a 0e 08 71 |........|.......q|
|00001740| 88 c9 20 88 ca 1e 0b cc | 0e 0d 0e 0e 0e 0f 23 88 |.. .....|......#.|
|00001750| 65 62 88 8a d0 d1 0e 0f | ca 23 ab 84 d2 14 aa 82 |eb......|.#......|
|00001760| d3 14 29 d0 0c 0e 0f ca | 23 ab ac d4 c2 21 88 d5 |..).....|#....!..|
|00001770| 94 16 06 d6 79 88 d7 d8 | 21 ab 8b 60 0e 0f 57 ab |....y...|!..`..W.|
|00001780| 85 d6 79 88 aa 70 d9 20 | 15 0e 07 da db 0e 06 0d |..y..p. |........|
|00001790| 7b 21 51 16 07 aa 4c c9 | 20 88 dc da 21 88 dc 0e |{!Q...L.| ...!...|
|000017a0| 07 21 88 dc dd 21 88 de | 65 64 df e0 ca 25 88 de |.!...!..|ed...%..|
|000017b0| 65 64 e1 e0 ca 25 88 de | 65 64 e2 e0 ca 25 88 65 |ed...%..|ed...%.e|
|000017c0| 62 88 d0 e3 0e 0f ca 23 | ab 86 d4 da 21 88 aa 72 |b......#|....!..r|
|000017d0| 65 62 88 c3 1e 24 d0 e5 | 64 ca 23 ab 90 e6 d6 21 |eb...$..|d.#....!|
|000017e0| 88 d6 94 d6 95 7b 0e 24 | 42 16 24 aa 69 0e 24 89 |.....{.$|B.$.i.$.|
|000017f0| 16 27 2e 08 87 22 20 5b | 72 65 71 75 69 72 65 20 |.'..." [|require |
|00001800| 6d 61 69 6c 2d 75 74 69 | 6c 73 20 22 22 20 6e 69 |mail-uti|ls "" ni|
|00001810| 6c 20 61 64 64 72 2d 72 | 65 67 65 78 70 20 74 68 |l addr-r|egexp th|
|00001820| 69 73 2d 6c 69 6e 65 2d | 65 6e 64 20 74 68 69 73 |is-line-|end this|
|00001830| 2d 6c 69 6e 65 20 73 69 | 6d 70 6c 65 2d 61 64 64 |-line si|mple-add|
|00001840| 72 65 73 73 2d 6c 69 73 | 74 20 73 6d 74 70 6d 61 |ress-lis|t smtpma|
|00001850| 69 6c 2d 61 64 64 72 65 | 73 73 2d 62 75 66 66 65 |il-addre|ss-buffe|
|00001860| 72 20 65 72 61 73 65 2d | 62 75 66 66 65 72 20 74 |r erase-|buffer t|
|00001870| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|00001880| 68 20 69 6e 73 65 72 74 | 2d 62 75 66 66 65 72 2d |h insert|-buffer-|
|00001890| 73 75 62 73 74 72 69 6e | 67 20 73 6d 74 70 6d 61 |substrin|g smtpma|
|000018a0| 69 6c 2d 74 65 78 74 2d | 62 75 66 66 65 72 20 68 |il-text-|buffer h|
|000018b0| 65 61 64 65 72 2d 73 74 | 61 72 74 20 68 65 61 64 |eader-st|art head|
|000018c0| 65 72 2d 65 6e 64 20 72 | 65 2d 73 65 61 72 63 68 |er-end r|e-search|
|000018d0| 2d 66 6f 72 77 61 72 64 | 20 22 5e 52 45 53 45 4e |-forward| "^RESEN|
|000018e0| 54 2d 54 4f 3a 22 20 22 | 5e 5c 5c 28 52 45 53 45 |T-TO:" "|^\\(RESE|
|000018f0| 4e 54 2d 54 4f 3a 5c 5c | 7c 52 45 53 45 4e 54 2d |NT-TO:\\||RESENT-|
|00001900| 43 43 3a 5c 5c 7c 52 45 | 53 45 4e 54 2d 42 43 43 |CC:\\|RE|SENT-BCC|
|00001910| 3a 5c 5c 29 22 20 22 5e | 5c 5c 28 54 4f 3a 5c 5c |:\\)" "^|\\(TO:\\|
|00001920| 7c 43 43 3a 5c 5c 7c 42 | 43 43 3a 5c 5c 29 22 20 ||CC:\\|B|CC:\\)" |
|00001930| 72 65 70 6c 61 63 65 2d | 6d 61 74 63 68 20 30 20 |replace-|match 0 |
|00001940| 31 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5e 5b |1 lookin|g-at "^[|
|00001950| 20 09 5d 2b 22 20 70 6f | 69 6e 74 2d 6d 61 72 6b | .]+" po|int-mark|
|00001960| 65 72 20 22 20 22 20 6d | 61 69 6c 2d 73 74 72 69 |er " " m|ail-stri|
|00001970| 70 2d 71 75 6f 74 65 64 | 2d 6e 61 6d 65 73 20 69 |p-quoted|-names i|
|00001980| 6e 73 65 72 74 2d 73 74 | 72 69 6e 67 20 22 5c 6e |nsert-st|ring "\n|
|00001990| 22 20 73 75 62 73 74 2d | 63 68 61 72 2d 69 6e 2d |" subst-|char-in-|
|000019a0| 72 65 67 69 6f 6e 20 31 | 30 20 3f 5c 20 20 3f 5c |region 1|0 ?\  ?\|
|000019b0| 2c 20 39 20 22 5b 20 09 | 5d 2b 22 20 72 65 63 69 |, 9 "[ .|]+" reci|
|000019c0| 70 69 65 6e 74 2d 61 64 | 64 72 65 73 73 2d 6c 69 |pient-ad|dress-li|
|000019d0| 73 74 20 22 20 5c 5c 28 | 5b 5e 20 5d 2b 5c 5c 29 |st " \\(|[^ ]+\\)|
|000019e0| 20 22 20 62 61 63 6b 77 | 61 72 64 2d 63 68 61 72 | " backw|ard-char|
|000019f0| 20 73 6d 74 70 6d 61 69 | 6c 2d 72 65 63 69 70 69 | smtpmai|l-recipi|
|00001a00| 65 6e 74 2d 61 64 64 72 | 65 73 73 2d 6c 69 73 74 |ent-addr|ess-list|
|00001a10| 5d 20 36 20 28 23 24 20 | 2e 20 35 37 38 36 29 5d |] 6 (#$ |. 5786)]|
|00001a20| 29 0a 23 40 31 35 33 20 | 44 65 6c 65 74 65 20 42 |).#@153 |Delete B|
|00001a30| 43 43 3a 20 61 6e 64 20 | 74 68 65 69 72 20 63 6f |CC: and |their co|
|00001a40| 6e 74 69 6e 75 61 74 69 | 6f 6e 20 6c 69 6e 65 73 |ntinuati|on lines|
|00001a50| 20 66 72 6f 6d 20 74 68 | 65 20 68 65 61 64 65 72 | from th|e header|
|00001a60| 20 61 72 65 61 2e 0a 54 | 68 65 72 65 20 6d 61 79 | area..T|here may|
|00001a70| 20 62 65 20 6d 75 6c 74 | 69 70 6c 65 20 42 43 43 | be mult|iple BCC|
|00001a80| 3a 20 6c 69 6e 65 73 2c | 20 61 6e 64 20 65 61 63 |: lines,| and eac|
|00001a90| 68 20 6d 61 79 20 68 61 | 76 65 20 61 72 62 69 74 |h may ha|ve arbit|
|00001aa0| 72 61 72 69 6c 79 0a 6d | 61 6e 79 20 63 6f 6e 74 |rarily.m|any cont|
|00001ab0| 69 6e 75 61 74 69 6f 6e | 20 6c 69 6e 65 73 2e 1f |inuation| lines..|
|00001ac0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 6d 74 70 |.(defali|as 'smtp|
|00001ad0| 6d 61 69 6c 2d 64 6f 2d | 62 63 63 20 23 5b 28 68 |mail-do-|bcc #[(h|
|00001ae0| 65 61 64 65 72 2d 65 6e | 64 29 20 22 c0 19 8a 65 |eader-en|d) "...e|
|00001af0| 62 88 c2 c3 0c c0 23 ad | 98 c5 94 c6 79 88 60 7c |b.....#.|....y.`||
|00001b00| 88 c7 c8 21 ab 6c 60 0c | 57 ab 67 c9 ca 21 88 aa |...!.l`.|W.g..!..|
|00001b10| 70 2a 87 22 20 5b 74 20 | 63 61 73 65 2d 66 6f 6c |p*." [t |case-fol|
|00001b20| 64 2d 73 65 61 72 63 68 | 20 72 65 2d 73 65 61 72 |d-search| re-sear|
|00001b30| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5e 42 43 43 |ch-forwa|rd "^BCC|
|00001b40| 3a 22 20 68 65 61 64 65 | 72 2d 65 6e 64 20 30 20 |:" heade|r-end 0 |
|00001b50| 31 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5e 5b |1 lookin|g-at "^[|
|00001b60| 20 09 5d 2e 2a 5c 6e 22 | 20 72 65 70 6c 61 63 65 | .].*\n"| replace|
|00001b70| 2d 6d 61 74 63 68 20 22 | 22 5d 20 34 20 28 23 24 |-match "|"] 4 (#$|
|00001b80| 20 2e 20 36 36 39 36 29 | 5d 29 0a 28 70 72 6f 76 | . 6696)|]).(prov|
|00001b90| 69 64 65 20 27 73 6d 74 | 70 6d 61 69 6c 29 0a    |ide 'smt|pmail). |
+--------+-------------------------+-------------------------+--------+--------+